Private Sub btnSort_Click(ByVal sender As System.Object, ByVal e As _
             System.EventArgs) Handles btnSort.Click
  Dim i As Integer

  Array.Sort(Numbers)
  txtNumList.Text = ""
  For i = 0 To Elements
    txtNumList.Text &= CStr(Numbers(i)) & vbCrLf
  Next
End Sub
